{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 
0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "# Naudojamu simboliu
 reiksmes:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "# k - konstan
ta aprasanti skilimo greiti" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
49 "# kiekis - anglies kiekis fosilijoje (procentais)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "# t - laikas (metais)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "# mase - mase (gramais)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 24 "is_salygos:=(dy/dt=k*y);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%+is_salygosG/*&%#dyG\"\"\"%#dtG!\"\"*&%\"kGF(%\"yGF(
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 103 "F:=(1/dt)*(dt/y)=(k*y)
*(1/y):                                                        # gausi
me F:=1/y=k" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "G1:=int(rhs
(F),t):                                                               \+
    # gausime G1:=k*t" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "G
2:=int(lhs(F),y):                                                     \+
              # gausime G2:=ln(y)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "T:=G2=k*t+mase;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"TG/-%#lnG6#%\"yG,&*&%\"kG\"\"\"%\"tGF-F-%%maseGF-" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 118 "tegu:=mase=ln(mase):                    \+
                                             # paimame, kad mase lygi \+
ln(mase)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "lygtis:=simpli
fy((ln(y)-ln(mase)=k*t)):                                             \+
 # supaprastiname" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "bendra
s_sprendinys:=y=mase*exp(k*t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%3b
endras_sprendinysG/%\"yG*&%%maseG\"\"\"-%$expG6#*&%\"kGF)%\"tGF)F)" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "# konstantos \"mase\" radim
as" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "nuliniu_laiko_moment
u:=simplify(subs(t=0, bendras_sprendinys)):                      # gau
sime, kad y=mase" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "konstan
ta_mase:=y;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%/konstanta_maseG%\"yG
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "y(t):=y*exp(k*t):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 51 "# nustatome skilimo greiti aprasancia konstanta \"k
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "F:=(ln(1/y)/t):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "nustatome_k:=evalf(subs(y=2,
 t=5730, F),3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,nustatome_kG$!$@
\"!\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "ieskoma_lygtis_ly
gi:=subs(k=nustatome_k, mase=2, bendras_sprendinys);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%4ieskoma_lygtis_lygiG/%\"yG,$-%$expG6#,$%\"tG$!$@
\"!\"'\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "laikas_t:=(l
n(kiekis)/nustatome_k);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)laikas_t
G,$-%#lnG6#%'kiekisG$!+5GYk#)!\"'" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 114 "anglies_kiekis_procentais_medziagoje:=25;           \+
                                  # !!!!! reikia ivesti !!!!!!" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%Eanglies_kiekis_procentais_medziagoj
eG\"#D" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "kiekis:=(ln(angl
ies_kiekis_procentais_medziagoje/100)/(nustatome_k)):                 \+
# apskaiciuojame kieki" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 118 "
medziagos_amzius:=evalf(kiekis,5);                                    \+
                # sios medziagos amzius (metais)" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%1medziagos_amziusG$\"&d9\"\"\"!" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 58 "lyg:=(ln(procentai_esantys_medziagoje/100)/(n
ustatome_k)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "plot(lyg,p
rocentai_esantys_medziagoje=1..100, thickness=2, color=green);" }}
{PARA 13 "" 1 "" {INLPLOT "6'-%'CURVESG6#7X7$$\"\"\"\"\"!$\"1P>etd#f!Q
!#67$$\"1+]il&z%R:!#:$\"1b7UT,O\\MF-7$$\"1++DJ\"f*y?F1$\"12FLBn2,KF-7$
$\"1+](opQ%=EF1$\"1:x2\"e1/,$F-7$$\"1++]i#=z:$F1$\"1mZ8CWebGF-7$$\"1+v
VL[r'4%F1$\"1e&=0I$[SEF-7$$\"1+]P/9^N]F1$\"1L&G&))G'*pCF-7$$\"1,D1MjG
\"4'F1$\"1n#Q7k`EJ#F-7$$\"1++vj71ZrF1$\"1W$*GJGb!=#F-7$$\"1,+DYygs#*F1
$\"1S$))oYw`'>F-7$$\"1+vo2_!)Q6!#9$\"14>'*)oTbz\"F-7$$\"1+vVnR$\\L\"Fi
n$\"1UFOuv@k;F-7$$\"1+v$z$R,Q:Fin$\"1:^THW=Z:F-7$$\"1+v$R`R![<Fin$\"16
#z*eoRT9F-7$$\"1+v=v:Rd>Fin$\"1I#Q2-6zM\"F-7$$\"1++D#)ets@Fin$\"1.jm$>
^;E\"F-7$$\"1+]7l7TiBFin$\"1\"*yS<7[#>\"F-7$$\"1++v@3%fd#Fin$\"1iELbr'
47\"F-7$$\"1++D^rM!z#Fin$\"1lD&**z\"*[0\"F-7$$\"1++Dyt'p*HFin$\"17z#4-
Z&e**!#77$$\"1+v$*Q$)f%=$Fin$\"1Yy32`oc%*Fiq7$$\"1++D*p4xS$Fin$\"1Rp'o
Qjq*))Fiq7$$\"1+++(G9nf$Fin$\"1SIZV^%4X)Fiq7$$\"1+vVa:d;QFin$\"1DlQq(*
fgzFiq7$$\"1++]*[#=6SFin$\"1F4)\\fy&\\vFiq7$$\"1+vVH:qCUFin$\"1#eKJji4
7(Fiq7$$\"1+DJ[@-GWFin$\"1iJF)\\'\\KnFiq7$$\"1,]P%)e;SYFin$\"1S^52OuXj
Fiq7$$\"1+v=e+)\\$[Fin$\"1q1pr>&e+'Fiq7$$\"1+]7jM6X]Fin$\"1fF!)ydDacFi
q7$$\"1+v$R,$Qj_Fin$\"1:dK'3CUI&Fiq7$$\"1+Dc*H(Q`aFin$\"1!z9IxT6,&Fiq7
$$\"1+]PLrfecFin$\"1gUvH-'eq%Fiq7$$\"1****\\r*)fqeFin$\"1UeJ4y)=S%Fiq7
$$\"1**\\()49+ygFin$\"1\"[$f*y^\\6%Fiq7$$\"1+vVLRnyiFin$\"1J*e-G)\\YQF
iq7$$\"1+]7dl[,lFin$\"1Wdi8&*HeNFiq7$$\"1****\\4Op,nFin$\"1\"[:)[Jk2LF
iq7$$\"1++DrtX:pFin$\"1?T`i'[\"[IFiq7$$\"1+v$46f\"4rFin$\"1GNi0S%)>GFi
q7$$\"1++vvi#4K(Fin$\"1l,)37esd#Fiq7$$\"1+vVuE=?vFin$\"10'ewzF`N#Fiq7$
$\"1,v=CIYGxFin$\"1BGPQhaH@Fiq7$$\"1++DO^4KzFin$\"1ns=[1h9>Fiq7$$\"1+v
$f3z_9)Fin$\"11`ZPjU&p\"Fiq7$$\"1,++n0g]$)Fin$\"1>OX8Ho*[\"Fiq7$$\"1+]
iO9dg&)Fin$\"1&e#*y]ZWG\"Fiq7$$\"1,vVTO!)o()Fin$\"17;BcS#e3\"Fiq7$$\"1
++]6u9g*)Fin$\"1#o1#)3\\U2*!#87$$\"1+]7l*[%z\"*Fin$\"1+Rv03'e2(F[[l7$$
\"1+++*)[fv$*Fin$\"1EaOV!=&G`F[[l7$$\"1+vVats%e*Fin$\"1i&H&QEI0NF[[l7$
$\"1,Dc3Q*[y*Fin$\"1W'>P#f8(z\"F[[l7$$\"$+\"F*F*-%'COLOURG6&%$RGBGF*$
\"*++++\"!\")F*-%*THICKNESSG6#\"\"#-%+AXESLABELSG6$%=procentai_esantys
_medziagojeG%!G-%%VIEWG6$;F(Fa\\l%(DEFAULTG" 2 492 492 492 2 0 1 2 2 
6 0 4 2 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
0 1 1 0 0 0 284 1 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}}{MARK "2 0 0" 11 }{VIEWOPTS 1 1 0 3 4 1802 }
